home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / GETDATE.PAS < prev    next >
Pascal/Delphi Source File  |  1985-12-13  |  2KB  |  48 lines
  1. Program getdate;
  2. TYPE
  3.    mday = ARRAY[1..12] OF BYTE;
  4. CONST
  5.    nday : mday = (31,28,31,30,31,30,31,31,30,31,30,31);
  6.    days : Array[1..7] of string[9] = (' Saturday',
  7.                                       '   Sunday',
  8.                                       '   Monday',
  9.                                       '  Tuesday',
  10.                                       'Wednesday',
  11.                                       ' Thursday',
  12.                                          'Friday');
  13.    textmonth : Array[1..12] of string[9] = ('  January',
  14.                                             ' February',
  15.                                             '    March',
  16.                                             '    April',
  17.                                             '      May',
  18.                                             '     June',
  19.                                             '     July',
  20.                                             '   August',
  21.                                             'September',
  22.                                             '  October',
  23.                                             ' November',
  24.                                             ' December');
  25. Var
  26.   year  :  integer;
  27.   month, date, hour, min  :  byte;
  28.   i,ndays: INTEGER;
  29.   day  :  String[9];
  30.  
  31. {$I getdate.inc }
  32.  
  33. begin
  34.   clrscr;
  35.   getdate(year, month, date, hour, min);
  36.   ndays:=date;
  37.   for i:=1 to month-1 do
  38.      ndays:=ndays+nday[i];
  39.   if (month >= 3) then if (year mod 4 = 0 ) then
  40.   if ((year mod 100 <>0)  or (year mod 400 =0))  then ndays := ndays+1;
  41.   ndays:=ndays+trunc(365.25*(year-1901));
  42.   day:=days[(  (ndays+2)  mod 7 ) + 1];
  43.  
  44.   writeln('Today''s date is:',day:10,',',textmonth[month]:10,date:4,', ',year,
  45.           '     Time:',hour:5,':',min:2);
  46. end.
  47.  
  48.